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ABSTRACT 


A scheme of digital data logging for the 
analysis of fading phenomena on troposcatter links 
have been discussed. The data logging system uses 
IBM 1800 DATA AQUISITION AND CONTROL SYSTEM for 
ON-LINE aquisition of data. The ccmx>uter time is 
shared between other N6ii**Process and Process 
programs with the help of TIME SHARING EXECUTIVE 
SYSTEM. The data is fin^y stored on magnetic 
tape which can be processed on IBM 7044/1401 systems. 
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CHAPTER 1 


INTEICPUCTION 

An experimental Troposcatter link is being set up 
betv^een Nainital and Kanpur. In the initial phases of 
research program, it is intended to gather fading stati* 
sties on this channel at 2100 MHz. Such data is not yet 
available for this region and extracted parameters from 
the experimental data are expetted to yield useful 
information for optinial system design of troposcatter 
communication links. With this in mind, the need was felt 
for a Digital data logging system which could store the 
raw data on digital tape, compatible with IBM 7044/1401 
systemf, available at this institute. 

FADING 

Weak persistent fields, due to scattering from 
lower layers of atmosphere, called Troposphere, are observed 
beyond horizon. The path loss depends upon the frequency 
and the distance between transmitter and receiver. The 
fiel d strength at the receiver is acompanied by conti- 
nuous fluctuations caUed^' FADES. Detailed experimen tal 
data on statistical distribution of fade duraticaas and 
fading rates is sparse. Such data as is available, is 
reasonably consistent to the trend and order of magnitude 
but is not in good agreement with the shape of the distri*i 
iHition 



Typically observed fading rates in Troposcatter 
channels range from 0.1 to 1,0 fades/second at 400 ivJHz! 
cind to 1 to 10 fades/second at 4000 MHz, In individual 
experiments however, the fade rates may vary from these 
values by a factor of 10 in either direction. 

The entire fading spectrum is roughly subdevidecl 
into the following three groups. 


(i) 

FAST 

FADES 

(ii) 

SLOW 

FADES 

(iii) 

VERY 

SLOW FADES 


Fast fading, which is believed to be due to 
multiple path effects, generally has a Rayleigh distri- 
bution and its seunpling time has been found to vary from 
1 to 5 minutes, A slow fading whi di is believed to be due 
to changes of retractive index of the atmosphere is 
superimposed on fast fading. 

The median of received signal over a long period of 
time, of the order of hours, is found to obey a log 
normal distribution i.e.; the values measured in db 
appear to obey a Gaussian distribution. Deviations 
from Rayleigh distribution in short term fading are 
occasionally observed because of oth er mechanisms of 
propogation 1 ike ’ducting ‘ and nonstationarity during 
the measured period. 
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Very slow fades, persisting over a long period of 
time of the order of a fraction of a day and longer, are 
also observed in troposcatter channels. These fades are 
characterized by the diurnal and seasonal variations of 
the long term median of the received signal • 

STATISTICS OF FADING DATA 

For system design of the data logging system it 
is necessary to have specifications of fading envelope 
in terms of its bandwidth and dynamic range. The upper 
limit of the bandwidth of fading is fixed by the maximum 
fading rate of interest. We fix our upper limit as 100 Hz. 
For slow fades only frequencies below 10 Hz are of interest 
to us ♦ 

Sampling time for short term statistics should be 
of the order of 1 to 5 minutes. For hourly variation, 
samples should be taken every hour and for diurnal and 
seasonal variations for a period of at least one year. 

Besides the long-term median path loss over the 
channel, median signal strength over a short time is 
governed by the depth of fades. Since the seasonal 
variations have a dynamic range upto 40 to 50 db and 
the diurnal variat ions of hourl y median are al so about 
20 db at the most, the sys tem should therefore be abl e 
to handle a dynamic range of at least 70 db. 
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A SCHEivE FOR DATA LOGGING 

Our aim is to design a Data Logging System for 
the fading data as described above. Various systems have 
been proposed in past^ ard one of them was designed also. 
They used a strip chart recorder for on-line recording 
of data and ADC for digitizing it. But the IBM 1800/DACS, 
an on-line data aquisition and control system, recently 
acquired by IITK computer centre, can be very effectively 
used for this purpose. The IBM 1800/DACS has an Analog 
to Digital Converter (ADC) which can accept as many as 
1024 analog input channels through a multiplexer . At 
this installation, only 16 analog input channels are 
available. 

The Priority Interrupt Structure, which is a 
feature of IBM 1800/DACS, enables us to execute programs 
on a priority basis. The computer also supports a magnetic 
tape unit with 7-track read/write head , coinpa tibl e with 
IBM 7044/1401 systems* Keeping these facilities in mind, 
we propose to use IBM 1800/DACS for our Data Logging System. 

For IBM 1800/DACS, there are two programming 
systems available viz; Multiprogramming Executive (MFX) and 
Time -sharing Executive (TSX) . MPX, though a avery power- 
ful system for on-line applications, requires large core 
memory, at least 24 K word. The MRS system, generated 
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at this installation with bare minimum facilities 
takes 11100 words of core, leaving only around 5000 words 
for users which is insufficient for a Data Logging System. 
Hence we have used TSX for our purpose. The executive 
in this system takes around 7000 words, leaving rest 
of 9000 words of core for users. 

The data logging program consists of subprograms 
which can be modified to give different sampling rates 
and number of samples. The programs are also flexible 
and new subroutines can be added and/or deleted, if 
desired^ to make the data logging programs very versatile. 

Before describing the data logging system in 
detail, here are the specifications and restrictions for 
the system. 

SFECIFICATIQMS 

(i) Fast fades have the maximum 

frequency components upto 100 cps . Thus 
the sampling rate for fast fades is 
200 sample s/se cond . 

(ii) Fast fades are to be sampled for l/2 

minute. This gives 6000 samples. 

(iii) Slow fades have the meiximum frequen <y 

components upto 10 cps. Thus the sampling 
rate for slow fades is 20 samples /second. 
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(iv) Slow fades are to be sampled for 5 minutes* 
This gives 6000 samples, 

(v) The dynamic range of signal amplitude is 
70 db. The signal is pa,ssed through a 
logrithmic amplifier which converts the 
70 db range into a linear range, 

(vi) The data-logging Routines should be executed 
at the highest priority available in 
I3M-1800. 

(vii) The data is to be logged for 5.5 minutes 

every hour, throughout the year. 

^STRICTICNS 

IBM 1800/DACS poses some restrictions on our 
data logging system, 

(i). Due to small memory size and inadequate 
speed of l/O devices, not more than 6000 samples can be 
taken at a stretch, 

{iij The data has to be finally stored on to a 
magnetic tape. Since there is only one tape unit availebe, 
some operator interrention becomes inevitable for changing 
the magnetic tapes, 

BLOCK DIAGEIAM 

The data-logging system was designed, keeping in 
view, all the specifications and restrictions as mentioned 
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above. The overall picture of the system is shown in Fig.l. 
The output of the logarithmic amplifier is simultaneously 
fed to two active low pass filters with a 100 cps for fast 
fades and 10 cps for slow fades, as upper cutoff frequencies, 
respectively. The two types of fades are carried on two 
shielded pair cables to the IBM 1800 multiplexer terminals. 
Fast fades are connected to a solid state multiplexer point 
and slov^ fades to a Relay multiplexer point. The amplifiers 
shown in the figure provide sufficient gain so as to give an 
output of _+ 5 volts dynamic range. The output stage amplifi- 
ers also act as buffers betweer the multiplexer terminals 
and the filters. 

For the data logging routines to come into execution 
the IBM 1800 system is interrupted every hour. This interrupt 
is created by shorting a Process Interrupt Status Word (PIS’v?) 
bit. To achieve this, we have used a battery driven electric 
clock, with a hole in the dial at 12th position. A photo- 
resistance is attached at the back of the dial so that the 
light falls on it every minute of the hour exclu’ing 
the both, when the minute needle is at the 12th position. 

This causes the resistance to vary, ca-using a relay to trip 
and shorting the FiSW. Thus, we have the interrupt, created on 
the hour ^ every hour . 
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This external interrupt is connected at the highest 
priority level 00. The subroutine, included in the execu- 
tive to service this interrupt inturn creates an interrupt 
at level 05i. The dat a logging routines are out of core 
disk resident routines which are brought into the variable 
core (VCX)RE) for execution whenever a programmed interrupt 
occures at level 05, At this time, the users progra,m v^hich 
is currently in execution is saved on to a disk area. The 
slow fades are then read for 5 minutes and this data is 
temporarily stored in VCORE. When the sajnpling of slow 
fades is finished, the data is transfered on to a di sk 
file. The same procedure is followed for the fast fades. 
Every hour the data is transferred from disk to magnetic 
tape. Each set of 6000 data on the magnetic tape is 
labelled. The label contains the information about 
time, dat®, month and type of data i.e, slow or fast. 

For this purpose, the data logging system contains an 
inbuilt calender routine which keeps track of time, date 
and month. The provision for updating the calender in 
case of power failure etc. is ed so provided. 

The whole system works automat icall y wit hout 
any human intervention except for following occasions. 

(i) The clock has to be synchronized by a similar 
clock at Nainital. This is done by synchronizing both 
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the clocks independently with /^IR time, everyday. 

{ii) The appropriate tape has to be mounted 
every hour for transferring the data from disk to tape, 
(iii) The calander is to be up dated during 


computer shut down. 



CHAPTER 2 


RELEVENT FE/;TURE& OF IBM 1800 LACS ' 

2 

(1) Inte rrupt 

The interrupt feature in this system provides an 
automatic breach from the normal program sequence. 

It provides a means of switching from one program 
routine to another depending upon the external conditions. 
The Interrupt may be one of the following types 

(1) Internal interrupt 

These interrupts are created by any one of the 
following conditions t- 

(a) An invalid operation code 

(b) A parity error in transferring the data 

(c) A storage protect violation 

(d) A channel Address Register (C/sR) check, 

(2 ) Customer Elngineer Interrupt 

This interrupt is the lowest priority interrupt 
which is used by Customer Engineer for fault diagaostic 
purposes • 

(3) External Interrupt 

These interrupts are classifed in two major 


cla sses 
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( a ) Input /Output Interrupt 

The l/O interrupts are created by the l/O devices 
attached to the system such as card read/pupch, disk, 
magnetic tape etc. 

4,7 

Process Interrupt 

The process interrupts are created by various 
processes external to the computer. Examples of this type 
of interrupt, are, rising temperature in a furnace or 
sudden increase ip the pressure of a cylinder etc. 

It is the process interrupt which is of very much 
interest to ps because we are creating an external 
interrupt, every hour, to store the fading data. 

Process Interrupts 

There can be 24 levels of process interrupts in 
the system. This installation has 12 levels of interrupt.. 
For each interrupt level there is a 16 bit Interrupt Level 
Status Word (ILSW). Attached to each ILSW bit , these 
can be either one Process Interrupt Status lord (PISW) 
or one Device Status y7ord (DSW). is a status word 

associated x^ith each l/O device. PISW is a 16 bit word where 
each bit can be connected to a process. 

When a PISIT bit is shorted by an external process, 
the corresponding ILS?/ bit is turned W. In the IBM 1800 
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processor controller, there is a polling circuit which ^ 
after the end of the execution of each instruction, checks 
for an ILSl bit which is CIs[, When an ILSW bit is OSi a 
forced Branch and Save Instruction Counter Indirectly 
(3SI Indirect) instruction is executed by the system. 

Every interrupt level biraxhes through unique location 
in the core. This location contains the address of the 
LEVEL WCHK /JEISA for that particular interrupt level. 

In the level work area, the Instruction Register 
(I-R.eg«) Accumulator, Accumulator extension (Q-Reg.), 

Index Register 1, (XRl ) Index F..egister 2 (XR2), Index 
F.egister 3 (XR3 ) and the other indicators are saved. Ihe 
control is then passed to Master Interrupt Control (MIC) • 

MIC senses the ILSW and branches to different 
routines depending upon whioh bit is ON, through Interrupt 
branch Table (I3T). 

For process interrupt an entry is made to Process 
Interrupt Entry point (PRIE) . Here the PISW, correspondin g 
to that level is sensed. The routine to service this 
PI3W bit is then given the control. This is done with 
the help of Interrupt Core Load Table (ICLT). 

The interrupt can be serviced by a subroutine 
in-cluded in the executive, a subroutine included with 
main line core load or a core load stored on to the disk 
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by * STORECI Control Card. The ICLT entries for each 
FISW bit contain the information about the location of 
the interrupt servicing routine i*e. In-Executive, In- 
mainline or out of core. If the interrupt servicing routine 
is a out of core-coreload, theycORE is saved in interrupt 
save area and the core load is brought in VCORE for 
execution. After the interrupt has been serviced the 
control is given back to MIC which resets the ILS¥ bit 
and reloads the previous program for execution. The 
flow of control during the service of an interrupt is 
shown in Fig. 2. ** 

(b) AN/iLOG INFUT ^*^ 

IBM ISOO EACS is capable of 

accepting Analog inputs. A physical phenomenon is first 
sensed emd converted to an analog electrical signal by 
sensors or tranceducers . Low level signals must be 
amplified to a level acceptable for conversion to 
digital form. All lines from tranceducers are terminated 
at the control system on screw down terminals* 

Conversion of Analog signals from a voltage 
level to digital information is accomplished by an Analog 
to-Digital Converter (ADC). Such converters are 
complex eneough so that if multiple sources of analog 
signals are to be converted, they share the use of one ADC. 
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Ihe switching is accomplished by a multiplexer. There 
are two types of multiplexers available. 

(1) Relay Multiplexer 

The Relay Multiplexers accept an analog signal 
which is differential in nature and is within ^ 5 volts 
dynamic range. The switching speed from one multiplexer 
point to another is 100 cps maximum. The same multiplexer 
point can be addressed with the maximum rate of 50 cps. 
iZ) Solid State Multiplexer. 

These multiplexers can be used for high speed 
data aguisition systems^ The same multiplexer point can 
be addressed with a maximum rate of 10,000 cps. The 
signal attached to these terminals should have one 
terminal grounded* , ”■ , , 

There can be as many i as 1024 analog input terminals 
attached to ^one ^ADC. Ont of these, .only, '25^ terminals 
can be solid state. Each^ mul tiplexerf point can be selected 
by an XlO instruction. 

/.nalog-to-Eigital Converter 

The provides the IKk! 1800 with the ability to 

convert bipolar analog signals with in _+5 volt range to 
digital valnes* It indndes a buffer amplifier and has 
program selectable resolutions of 8,11 and 14 bits. The 
ijDC conversion time depends only upon the number of bits 
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of output that are to be developed 
as follows I- 

Eesolution 


8 bit s 
11 bits 
14 bits 

The input impedance of /fjC 
DATA word of sn ADC 


Conversion times are 

Conversion Time 
29 usee. 

36 usee. 

44 usee, 
is of the order of 10 Megaohms 


The data word developed in the /fiC Register is 
compatible with IBM 1800 word format as shown in Fig. 3. 
The data word allows for sign plus 14 bit resolution. 
Conversion by stored program, of the output of the ADC 
should assume a position of the binary point. This 
position of the binary point does not change with the 
resolution of data. Only the number of significant bits 
in the ^iDC converted value changes. Negative numbers are 
in 2's compliment form 
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THE DATA LOGGING SYSTEM 

(1) SIGNAL CaSE IT I aUNG ELEMENTS, 

The analog signals connected to the multiplexer 
terminals should have proper frequency response, source 
impedance and dynamic range. This is achieved by the 
two active low pass filters and the four amplifiers, Amp-J, 
Amp 2, Amp 3, Amp 4, This arrangement is shown in Fig.l, 
The input characteristics of the multiplexers pose some 
restrictions on the desigi of these amplifiers, We will 
discuss these restrictions one by one. 


(i) Input to t he relay multiplexer, as seen 

from the source terminals looks as follows! 



where ve and R are the input voltage and source 
s s 

resistance respectively. 
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The input resistance oi the multiplexer is very 

large as compared to R and — ^ — at frequencies below 

s w C . 

an 

10 cps and is of the order of IM ohms. Thus R and C. 

s in 

combination works as a low pass filter, the upper cutoff 
frequency of which should be 10 cps. Hence the value of 
Rg can be calculated. It comes out to be 300 ohms. 

But due to stray capacitance, cable resistance, 
leakage resistance of the capacitor, it has been experim- 
entally found to be less than 50 ohms* So the output 
impedance of the Amp 4 should be less than 50 ohms. 

(ii) The input voltage to the multiplexer 
should have a dynamic rem^.e of + 5 volts, for maximum 
accuracy. 

(iiij The output of the Amp 4,i.e. the slow 
fade signals should be differential in nature. 

(iv) The output impedance of the Amp 3 should 
be between 100 to 1000 ohms. 

The two low-pass filters should have the follov?ing 
characteristics. 

(i) Filter 1 should have an upper cutoff 
frequency of 100 cps* 

(ii) Filter 2 should have an upper cutoff frequ- 
ency of 10 cps . 
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(iii) The signal strength above the cutoff frequenc)*. 

cies for both the filters should fall dov/n at 
the rate of at least 20 db/octave. 

LOW PASS FILTERS ^ 

The circuit diagram of the low-pass filters^ is 
shown in Fig, 5(a). The response is shown in Fig 5(h), 

The transfer function of the filter is 

1 ♦ k T^ s^ 
s^ T^*4 Ts (l-in)tl 



wher e 

k 

m 

T 


R, 


R4 .R3 


R 


3 


01 


,8 


RC 


,10 for slow fades 
,01 for fast fades. 


Filter 1 

C = .13 uF 
R = 15 K 

Filter 2 

0=1.36 uF 


R.= = 15 K 
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The cutoff slope obtained by one section of the 
fill ter is 14 db/octave. 

' We have used two sections of the filter to obtain 

the desired response of 28 db/octave* 

8 

INIERRUFT GENSf^i^TOR 

The interrupt in IBM 1800 is created by shorting 
a PISW bit. The circuit to achieve this is shown 
in Fig* 6. » When light is felling on the photo- 

resistor, its resistance is approximately 500 ohms and 
since traiisistor Tl is in cutoff state, a very small current 
fl ows into the coils of E.elay 1. The output terminals 
of Relay 1 remain open. The output transistor of monostable 
(T^) is in saturation, forcing the transistor T^ to remain 
in cutoff and thus Relay 2 remetins opm. 

When the minute needle of the clock reaches the 
12th position, the light falling on the photo resistor is 
blocked and its resistance increases. The minimum resis- 
tance measured experimentally is 20K. It goes as high 
as 50 K when shielded from stray light also. At this 
moment T-j^ goes to saturation, Relay 1 trips and a sudden 
voltage, reduced in magnitude by the resistances R^ and » 
is applied to the monostable input which triggers the 
monostable which in turn forces T^ to cutoff. The pulse 
width of monostable is 4 msec. For this time ,T^ goes to 
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saturation and 4 mA of current flows into the coil of 
Relay 2, The Relay 2 trips. This shorts the FISW bit 
causing an interrupt in the IBk 1800 system. 

After 4 msec, the transistor T^ goes back to 
saturation, transistor T^ goes to cutoff and Relay 2 termi 
nals become open# 
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SOFTf/ARE 

As discussed in the previous chapter, the clock 

» 

and photocell arran gement gener at es an interrupt every 
hour# This interrupt is wired to FISY/ bit 00 at IL£7/ bit 00 
The routines to perform the functions such as reading analog 
inputs, transfering data from memory to disk or disk to 
tape, ca.n not operate a^t this interrupt level because 
all the l/O devices are attached to a lov/er interrupt level 
and they can not be used by a program operating at a 
higher level* The highest interrupt level which can utilize 
all the devices required to perform the operation of data 
logging is level 05* At the same time the data logging 
operation should be given priority over other programs being 
executed in VCOB£. In order to resolve these conflicting 
requirement s, a small subroutine has been included in the 
executive at the system, generation time, to service an 
external interrupt at level 00 bit 00* The name of the 
routine is INEKC ( IN^Execut ive ) . This routine creates a 
programmed interrupt at level 05* 

When II^EXC has been executed the interrupt level 00 
is reset and the interrupt level 05 is serviced* The core 
load to service this interrupt i s an ' Interrupt-coreload * 
stored on the disk* This core load is given a name *SCATR* * 
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Before SCAIR comes into VCOES for execution VCORE is saved 
on disk in INTERRUPT SAVE AREA, reserved on disk drive 
zero at the lime of system generation. This area consistes 
of 9384 words which is exactly equal to the size of 
VCORE, 

The core load 5CATR consists of a main program 
aJid four subroutines. 

• (i) DIGIT (Main program) 

(ii) SLOli? 

(iii) TRANil 

(iv) FAST 

(v) TRAN 2 

DIGIT 

The main program DIGIT controls the sequence of 
operations to be performed, as siiown inlFig.8. The 
sequence is as follows: 

(i) To call subroutine SLO¥^ to read slow fade data 

(ii) To call subroutine TRAN 1 to transfer the slow fade 

data, on to the disk. 

(iii) To call subroutine FAST to read fast fade data. 

(iv) To call subroutine TP^AN 2 to transfer the fast fade 

data on to the disk. 

(v) To queue tne core load MAIRN for manual mode data, 
transfer from disk to tape, if trie fourth word in 
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file KEIADR is one. 

(vi) To queue the core load AUTO 1 for automatic mode 
data transfer from disk to tape, if the fourth 
Vi/ord in the file HE/iDR is two 

(vii) To exit through MIC vihere level 05 is reset. 

SLOW 

The subroutine SLOW reads the relay multiplexer 
point 00 at every 50 msec, interval, for 6000 times. Data 
read is stored in the memory in a COMMON area called 
DATA, After reading the slow fade data for 6000 times 
the routine returns the control to main program DIGIT. 

TRAN 1 

The subroutine TRAN 1 transfers the data in 
COMIvDN area on to a permanent, file protected , disk file 
called SLOW. The disk file is created by*STORE DATA 
control card under the control of DUP* The file SLOT 
consists of 20 records of 300 word each. After transfering 
the slow fade data on to the disk file the subroutine 
transfers the control back to main program DIGIT* 

FAST 

This subroutine reads the solid-state multiplexer 
point /13E8 for fast fade data, at 05 msec interval for 
6000 times. The data read is stored in the same common area 
DATA. After reading 6000 samples, the »ttbroutin€ transfers 
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conrol back to main program DIGIT. 

TRAN 2 

This subroutine transfers the fast fade data in 
VCORE on to a permanent, file protected disk file, called 
FAST. The disk file FAiST consists of 20 seconds of 300 
words each and is created by *STOREj DAiTA control card. 

After the data has been transferred from memory to disk, 
the subroutine returns the control back to main pro grean. 

W:,TRN 

The program is quea-ed on basie level with priori tyl. 
Since only single priority Queuss are allowed in t he present 
system the programs in queue are served on first come first 
served basis • When digit returns control to MIC, MIC checks 
for any recorded interrupts. Since there was no interrupt 
waiting for service, the control is given to program gequen ce 
C ontrol , (PSC) . FSC checks the queue for any program 
waiting there. Then MATPN comes into execution, 

MAIRN is a main line core load which transfer the 
data from the disk files onto a magnetic tape. It uses 
three disk files, 

(i) HEAiDR - For informa^tion about time, date and 

month, 

(ii) SLOW - For slow fade data 

(iii) FAST - For fast fade data. 

As soon as MATRN comes into execution it types the 
following message on the console typewriter and comes to 
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a WAIT state . 

MOUNT THE Ti.FE FCR SCATTiR COM. ANC kiAEE IT RS^DY . 

The operator has to mount the proper tape, make the tape 
ready and press start for further execution. This 
operator intervention is needed because some other user 
might be using the magnetic tape when the interrupt occures 
or the right tape used for data logging might not be 
mounted. 

Notes- If the users program has processed n records and 
interrupt occurs, it is not possible for the DATA 
Logging routines to maintain the status of his 
tape at n+lth record after the data logging has been 
finished. It is the users responsibility to put 
his tape back, such that he can process the n+lth 
record. 

MATRN calls a subroutine FOSIN. This subroutine 
reads each hea.der record and checks for a word having 
The - sign is an indication that the data has been 

written upto this point and the blank tape starts from 
here. The tape is back-spaced one record and control 
is given to main program MATRF. 

M/.TEIF first writes a header record for each 6000 
data words. The header record consists of four words. 
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7Jord 

1 - 
2 - 

3 - 

4 - 


Contents 
Time in hours 
Date 
Month 

1 for slow, fade data 

2 for fast fade data 


After writing the header record the data is rea.d 
from disk files SLOW & FAST, and written on the tape. 
There are 20 data records of 300 words each for each type 
of fade, per hour. 

At the end of data transfer a trailer record is 
written. This record consists of 4 words. The first word 
contains it and the rest 3 words are redundant. They 
are added to make the word lenght of header and trailer 
records equal. After the completion of this operation 
the following message is printed. 

REMOVE THE TAFE AND SiNE. IT 
and control is transferred back to PSC . 

C/J..ENDER 

The Data logging system has an iit'^built calender 
which keeps track of Time, Date and Month. The t ine is 
increamented by one, every hour, with the help of a 
COUNT- rou t ine . The COUNT routine is a subroutine which 
can call itself after a specified period of time.. The 
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general calling sequence of the count routine is as 
follows: 

C/JLL COUNT ( II, IN, INIVL)^ 
where II is the number specified for the count routine. 

This number is specified at system generation time, by the 
*INCLD control card. IN is the programmed timer which is 
in use for this count routine. There are in all 9 
programed timers available. Each timer has a time base of 
1 second. INTVL is ar^ integer whi di is decreased by one, 
at every timer interrupt. 'vhen the counter INTVL becomes 
zero, an interrupt is created at timer level, i.e. at level 
0, and the count routine included in the executive is 
executed. In our case 

IT = 1 

IN = 4 

INTVL = 3600 

The count routine included in executive, creates an 
interrupt at level 10, every hour. The CIjM)R core load 
services this interrupt and increases the Time by one . 

It also increases the date and month accordingly* 

TO ST/^T THE TIMER 

Before the COUNT routine resumes its repeatetive 
operation, it has to be started. This is done by a core 
load SC2SJT. The core load SCNT comes in execution 
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whenever console interrupt is pressed with SENSE SWITCH 
7 OFF and DATA SWITCH 0 ON.' 

CLxNDP^ 

It is an interrupt core load * It updates the disk 
file HSAER v<?hich stores the ; informa tion about time, date and 
month. HEADR is a permanent, file protected di sk file . 

It consists of one record of 4 words. 
v7ord Contents 

1 Time in hours 

2 Bate 

3 Month 

4 1= Manual "Mode , 2 « Auto*Mode 

The core load can operate un interrupted for 3 years 
continuously. February is always considered to be of 28 
days only. It increments the hour by 1 and accordingly 
dates and months are incremented at the appropriate time. 
SAMFLII-« RATE 

The slow fade and fast fade date area to be ‘eBmplediec 
at 50 msec, and 5 msec intervals each. This sampling 
time is decided by the routines SLOW and FAST themselves. 

The technique used to achieve this is discussed here. 

Y^hile reading an analog input, the flow chart 
shown in Fig. 7 has been used. 
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The time elapsed between two samples is equal to 
the time taken by the program to execute the instructions 
from A to 3 and back to A • T1 is the t iae for fast 
fades to go from A to B. It is 14.7 m secs. 

T2 is the time for slow fades to go from A to 3. It 
is 2,3 msec . To make Tl=50 m.sec, and T2 = 5 m.sec., some 
redundant instructions have been introduced in the 
return path. The instructions are 

IviDX 2 -1 

3SC 

These two instructions take 10 usee. fSr:; execution. 

The index Register 2 is loaded w'ith appropriate value, 
so that these two instructions are executed for 36.3 and 
1.7 msec, for slow and fast fades respectively 

ccnE lo/j: into? 

This core load comes into execution, whenever console 
interrupt is pressed with sense switch? OFF. It checks 
the DaTA switches 0,1, 2, 3 and 4, and queues different 
core loads, depending upon which data switch is 
The various options that are available are as follows* 

DATA SWITCH OFERATia'4 

m ■ 

...' O START COUNT ROUTINE 

(core load SCNT) 

1 START AUTOl'Ii TIC MODE 

(core load AUTOS) 
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2 STAR.T MANUii. MODE 

(core load MMODE) 

3 Update Calender 

(core load VINOD) 

4 START COSITINUOUS SCANNIt-G 

(core load CONT) 

The floWk diagram is shown in Fig. 10, 

CORE LOAD AUTOS 

The core load reads the iile HBADR from the 
disk and makes its fourth word m'Z • ^vhen the program 
DIGIT tests this word and finds it equal to 2, it 
queues the core load AUTOl for transfering the data 
on tape, without operator intervention* 

CORE LOAD MMCDS 

It reads the file HEADR from the disk and makes 
its fourth word equal to one • When program DIGIT 
tests for this word and finds it equal to one, the 
data transfer from disk to tape requires operator 
intervention. 

GORE LOAD CONT 

This core load operates in following sequences 
of operations . 

1. Subroutine is called to read the slow 


fade data 
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2. Subroutine TEl/iNl is called to transfer slow fade 
data on to the disk* 

3. Subroutine FAST is called to read fast fade data. 

4. Subroutine TRAN2 is called to transfer the fast 
fade data on to disk* 

5. Core load AUTOl is queued to transfer the data 
from disk to tape without operator intervention. 

6. Core load CONT itself is queued for repeating 
operations 1 to 5. 

UPDATING THE. O.LEMESR (core load VIN,CS}) 

Since computer might be shut down due to various 
reasons like power failure, airconditioner failure, or 
some hardware failure in the system, the data logging 
system during that period will not be operating and 
hence the file which contains the Time, Date and 

Month will not be updated. To update the file HE/xDR 
as desired by the operator, a program named VINQD has 
been stored permanently on to the disk. The core load 
V INOD reads the input from the type-writer. The operator 
ha.s to enter the hour, of the day, month and date 
through the key board, and the core load will update 


the file HEADR 
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COLE START (progrcsm COLDlJ 

The program is used as a cold start program. 

It is the first program ’Rhich is executed when the T£X 
system is loaded from disk to memory. The program 
unmasks all the interrupt levels and writes, the follovfing 
message on the typewriter 

COLD START TEST 

This program can be changed if the user decides to do 


SO • 



CHAPTER 4 


FERFQEUviANCE OF SYSTEM AND CX)NCLUS ICX^ 


The whole data logging system was tested in a 
simulated ON-line environment* A user's program was 
being compiled when the interrupt was created. A trian- 
gular waveform was connected to the relay multiplexer 
terminals* The wave- form was generated by HP low frequency 
signal generator* The shape of the waveform is shown 
below. 



The data was stored on to a magnetic tape and 
was printed on the type-writer* The subroutine to 
perform this function is listed in Appendix c * The 
samples showed a periodicity* There were 27 samples per 
period which shows that the sampling rate and the 
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oscilloscope time measurement me^tch with in 3%. The 
sample values for a typiceJ period are shown in Table 1 • 

The calculated rise in sample voltage is .185 volts. In 
the linear region of the waveform, the rizes are within 
^ 4% of this value. Which shows that samples are taken 
at equal time intervals. 

A similar experiment was carried out for fast 
fades. The triangular waveform has a time period equal 
to .15 seconds. The periodicity of the samples showed 
that these were exactly 30 samples per period. This is 
in good agreement with the theoretical value. The 
sampling time was found to be uniform within ^4%. 

When the data logging was finished the user's 
program resumed its execution. 
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OPERATING PROCEDURES 

The data logging SYSTEM requires some operator 
intervention for operating effectively. We have discussed 
here, different steps which are to be taken by the 
operator, depending upon the different external conditions. 

(1) External Connections 

(i) The output of the interrupt generating 
circuit as shown in Fig. 1 should be connected to PISW 
bit 00. 

(ii) The output of the Amp 3 as shown in Fig. 1 
is connected to Relay Multiplexer point 00. 

(iii) The output of Amp 4 as shown in Fig. 1, is 
connected to Solid State Multiplexer point. This point is 
located in 1826 enclosure, just below the Analog voltage 
calibrator. 

( 2 ) Cold Start 

When the IBM 1800 system is shut down, certain 
procedure has to be followed to bring the TSX system 
from the disk into the core memory. This procedure is 
called cold start. The steps to be followed are as follows 
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(i) tvit the system power ON« 

(ii) Mount the TSX CN-LINE SYSTEM disk cartridge 
on the disk drive zero and make it ready* 

(iii) Clear the core memory to zeros* 

(iv) Put the three TSX cold start cards into the 

card reader hopper and make the card reader ready 

(v) Press PROGRAM LOAD switch on the console* 

Following message is printed on the system typewriter 

COLD START TEST 

All this time the computer comes to wait state 
(3) To Start the Data Logging Clock 

After the cold start, when the system is in wait 
state, put the SENSE SWITCH 7 OFF and DATA SWITCH 0 ON 
and press Console Interrupt. Following message is printed* 
COUNT ROUTINE NO. 1 HAS BEEN STARTED 
nn mm 11 k 

where nn is the time; mm is the date, 11 is the month 
and k is equal to 1 * 

The count routine no* 1 has to be started on 
following circvims tances . 

(1) ON system REXiOAD 

(2) ON system RESTART 


(3) ON Caj3 START 
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(4) Manual Mode Operation 

When ever the ta.pe unit is being used or it is 
expected to be used when the interrupt comes and the 
operator is present on the system, the DATA LOGGING 
system should be operated in manual mode. 

To put the Data logging system into manual mode, 
following procedure should be followed 

(1) Put the SENSE SY/ITCH 7 OFF 

(2) Put the DATA SWITCH 2 ON 

(3) Press CONSOIA, INTERRUPT 
following message is printed 

TIME BATE MONTH MANUAL MODE 
nn 11 mm k=l 

where nn, 11, mm are time, date and month correspondingly. 

'/hen the Bata logging system is in manual mode, 
the tape has to be mounted every hour or whenever the 
interrupt comes. Before the data is transferred on to the 
tape, following message is printed. 

MOUNT THE T/iFE FOR SCATTER COM. AND M/JKE IT READY 
and the computer comes to WAIT state 

The operator has to mount the proper tape and ready 
the tape unit and then press the ST/iRT SWITCH on the 


console 
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When the data transfer is finished the following 
message is printed. 

REMOVE THE TAm /iND S/iVE IT. 

At this time the operator has to remove the tape and 
keep it at a proper place. 

(5) Automatic Mode Operation 

vvhen the Data logging system is in AUTO MODE 
it does not require any operator intervention. To put 
the system in automatic mode, following jp^'ocedure has to 
be followed. 

(1) Put the SENSE S'W ITCH 7 OFF 

(ii) Put the lata SWITCH 1 ON 

(iii) Press CONSOLE INTERRUPT 

following message is printed. 

TIME DATE MCMTH AUTO MODE 
nn 1 1 mm 2 

MOUNT IKE TAPE FOR SCATTER COM. AND MAKE IT READY 
and the computer comes to a wait state. The operator has 
to mount’ the proper tape for data logging ready the tape 
unit and press START on the console. After doing this 
the data transfer on to the tape will be automatic. 

But during the period when Data logging system is 
in AUTO MCXS, the tape unit should remain ready and the 
tape should not be disturbed. 
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(6) Continuous Mode of Operation 

To put the Data logging system in continuous 
mode, follo'!J.!ing procedure has to be followed. 

(1) Mount a New tape on the tape unit and make 
it ready. 

(2) Put SENSE S1¥ITCH 7 OFF 

(3) Put DATi. SWITCH 4 ON 

(4^ Press CONSOLE INTERRUPT 

Follovjing message is printed after each 6 to 7 

minutes. 

DATA TR/NSFERRED ON TAPE 
TIME DATE MONTH 

nn mm 1 1 

To stop the continuous mode of data logging press STOP 

RESET and START buttons on console, in the same sequen ce. 

The system is RELOADED and data logging s topes. 

Note- In continuous mode of operation the Interrupt 

should be disconnected , because it does not require 
an Interrupt . 

(7) Updating the Calender 

For updating the time, date and month, 
put the sense switch 7 OFF, data switch 3 ON and press 
console Interrupt. The data is entered through typewriter. 
The operator has to follow the instructions as being typed. 
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/*n illustrative example is shown in Append ixwB • 

This procedure is to be followed whenever the 
computer is shut down for more than an hour* 

(8) Processing a New Tape 

A data record having 'jSsS* as its first data 
word ha.s to be written on every newtape, used for data 
logging. The procedure to do it is as follows* 

(i) Mount the new tape and make it ready 
(ii) Put the following two cards in card reader 
hopper and make it ready. 


// b JOB 

1/ h XEQ b TEST FX 

The core loa,d test is executed and the tape can be 
used now for data logging. 

(9) The electric clock has to be updated every day 
by synchronizing it with AIR timings. 



APPEND IX -B 


Enter time in hours only 

ii-xample if ff fg hours 43 minutes enter 11 
09 

Time entered is 9 

If correct type yes if not type not 
Yes 

ilnter date 
13 

Late entered is 13 

If currect type yes if not type not 
Yes 

Enter month in tv/o digit number 
Example July =07 

08 

Month entered is 8 

If correct type yes if not type not 
Not 

Enter month in two digit number 
Example ** July=07 

08 

Month entered is 8 

If correct type yes if not type not 


Yes 



APFTENEIX C 


(1) FROGRABi FOR INITIALIZING THE TAPE 

// JOB 
// FOR TEST 
* IOCS (MAGNETIC TAPE) 

’i'NON HIOCEES PROGRAM 
’i'ONE WORD INTEGERS 

DATAIDOLR/ ' $$ » / 

n=o 
12 = 1 
13 = 3 

ElEWIND 14 

WRITE (14) IBOLR, II ,12,13 

CALL EXIT 

END 

J J DUP 

♦STORECI TEST TEST TEST 


*CCEND 
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(2) THE CCHE LOAD TO SERVICE CONSOLE INTERRUPT 

// JOB 

n FOR INTO? 

* IOCS i TYPEWRITER, D ISK) 

EXTEEINALSCNT, AUTO, MANL, V INOD , CONT 

99 FORMAT (’ALL THE DATA ENTRY SWITCH BETWEEN OAND 4 

1 ARE OFF 'll 
CALL DATSW (0,11) 

G0T0(1,2),I1 

1 CALL QUEUE ( SCNT, 1 ,0) 

GOTO 100 

2 CALL DATSW(1,12) 

GOGO(3,4),12 

3 CALL QUEUE (AUTO, 1,0) 

GOTOlOO 

4 CALL DATS! (2,13) 

GOTO(5,6) ,13 

5 CALL QUEUE (MANL,1,0) 

GOTOlOO 

6 CALL DATSW(3,I4) 

GOTO(7,8),I4 

7 CALL QUEUE (VINOD, 1,0} 

GOTOlOO 

8 CALL DATSW(4,I5) 

G0T0(9, 10) , 15 
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CALL OUEU{CONT,1 ,0) 

GOTOlOO 
10 TRUE (1, 99 J 

100 CALL ENDTS 

CALL INTEX 
END 

// DUP 

’i'STORECI I INTO? INTO? 240? 

=5'"CEND 

(3) CORE LOAD TO START COUNT ROUTINE 

/ / JOB 

JI FCR SCNT 

>i«LIST ALL 

# IOCS (TYPEWRITER) 

CALL C0UNT{1,4, : ' ) 

WRITE (1,100) 

100 FORiVIAT (’ COUNT ROUTINE NO'l HAS BEEN STARTED*) 

CALL VIAQ 
END 

// D*.*P 

*STORSCI M SCNT SCNT SCNT 


#CCEND 
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(4) CORE LOAD FOR STARTING MANUAL MODE 
// JOB 

1 1 FOR MMODE 

“S' IOCS (TYFEWRIIER.D ISK> 

DEFINE FILE1802 (1,4,U, IHE/iD) 

IHEAD=1 

READ (1802' IHEAD ) ITIME , ID ATE , MONTH, INCTR 
INCTR=I 

iheaj:;=i 

WRITE ( 1 802 ' IHEAD) ITIME , IDAIE , MONTH, INCTR 
WRITE (1,100) ITIME , IDAIE , MONTH, INCTR 
100 FORMANT (' TIME DATE MONTH MANUAL MQDE^/415) 

C/iLL V IAiQ 
END 

// DUP 

^STORECI M MMODE MMODE MMCDE 

*FILES(1802,HE;DR,0) ■ 

*CCEND 
// DUP 

#seqch manl mmcbe, into? 
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(5) GORE LO^iD TO START AUTOM/.TIC MODE 
/ / JOB 

// FOR AUTOS 
* IOCS ( TYPEWRITER, D ISK ) 

DEFINE FILE1802(1,4,U,IHEAD) 

IHEAD=1 

200 FORMAT {' MOUNT THE TAPE FCH SCATTER COM AND REi\DY IT^) 
WRITE (1,200) 

PAUSE 
C/iLL POSN 

RE/D (1802 > IHEAD) ITIME, ID ATE, MONTH, INCTR 

INCTR=2 

IHEaE=1 

WRITE (180 2 MHE/D ) IT Il/E, IDAIE,Ma'^TH, INCTR 
WRITE (1 , 100 ) ITIIVE, IDAIE, MQNTH, INCTR 
100 FORlvLAT ( ’ TIME DATE MONTH AUTO MODE' /4 15 ) 

CALL VIA?§ 

END 

/ / FOR 

SUBROUTINE POSN 
DATA ID0LR/'$$'/ 

DIMENSION IBUFR(4) 

REWIND 14 

9 READ ( 14 ) IBUFR 

IF ( I3UFR ( 1 ) - IDOLR) 1 0 ,1 2 , 10 
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CO 11 1=1,20 

RI1/D(14) 

CONTINUE 
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11 


G0T09 

12 RETORN 
END 
// DUF 

♦STORECI M AUTOS AUTOS AUTOS 

*FTL;3S { 1 80 2 , HE/JDR, 0 } 

*CCEND 

’S'SEQCK AUTO AUTOS , INTO? 

(6) CORE LOi-D FOB. UPDATING CAL/^ER 
// J OB 

// FOR CLNDR 
#IOCS(KEYBOARE) 

* IOCS (TYFS^'RITEPJ 

* IOCS (DISK) 

DEFINE FIL.E1802 (1,4.,U, IHEAD) 

DATAt®/' no" / 

100 FORi*AT(' ENTER. TIME IN KOJRS Q'^Ly'/ ^EXAMPLE** IF IT IS 

. 7. 11 HOURS 43 MINUTES ENTER llj) 

101 FOEMAT(12) 

102 FOR14/iT{' TIIVE ENTERED IS^4X,12/ IF CORRECT TYPE YES 
1 IF NOT TYPE NOt7) 
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103 FOmv.AT(A2,Al) 

20j. FORiviAT( ^DATE ENTERED IS^4X,I2,/IF CRRECT TYFE YES 
1 IF NOT TYFE NOT') 

200 format ('enter DAE) 

300 FORMAT (' ENTER MONTH IN TvTO DIGIT NUMBER^ /' EXAMFEE** 

1 JULY=07V) 

301 format (' MCWTH ENTERED IS'^12,/''lF CORRECT TYFE YES 
1 IF NOT TYFE NOT^'/) 

INCTR.= 1 

11 WRITE(1,100) 

PAUSE 

RE/£ (42,101) IBUFl 
miTE(l,l02)IBUFI 
PAUSE 

READ (42 , 103 ) IBUF2 , IBUF3 
IF(IBUF2-NO)10,11,J 0 
10 ITI?yIE=IBUFl 

21 WRITS (1,200) 

PAUSE 

READ (42,101)IBUF1 
WRITE (1,2 01 )IBUF1 
PAUSE 

RE/J} (42 , 103 ) IBUF2 , I&UF3 
IF ( IBUF2-NO) 20 , 21 , 20 



2 0 ID ATE,= IBUFl 

41 V.!RITE;( 1,300) 

PAUSE 

READ (42, 101) IBUFl 
¥/RI IE (1,301) IBUFl 
PAUSE 

READ (42,103) IBUF2 , IBUF3 
IF ( IBUF2 -NO) 40,41,40 
40 MONTH= IBUFl 

V/RITE (lb02 ^1) ITIlffi, IDATE, MONTH, INCTR 
CALL VIAQ 

EIND 

// DUP 

♦STOIECI M VINOD CLNDR VINCD 

♦FILES (1 802 , KE/J3R, 0 ) 

♦CCEND 


(7) CORE LOAD FOR CQ^ITINUOUS SCANNING 

// JOB 
// FOR CWT 
♦ IOCS (DISK) 

DEFINE FILE 1 800 (20, 300 ,U. ISLOW) 
DEFINE FILE 1801 (20, 300, U.IFAST) 



EXT.IW'IAL CONT 

external AUTOl 

COMMON / INSKEL/ ISLOV? , IFAST 

COMMa'I IDATA ( 6000) 

Ci-iXiL SLOl'i 
CALL TEUJSIl 
CALL Fi..£T 
CALL TRAN2 

10 1 CALL QUEUE (AUTOl ,1,0) 

CALL QUEUE (CONT, 1,0) 

CALL VIAQ 
END 

// DUF 

*STOFElCI M CONT CQMT CONT 

*LOCALSLO?, TELAfU , FAST , TR/N12 
♦FILES (1800, SF/iDE, 0 ) 

*F ILES (1 801 ,FF/I>E, 0 ) 

♦.CEND 


( 8 ) 

// JOB 
/ / FOR 

SUBROUTINE INEXC 


CALL END TS 
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G/UL level ( 5) 
C/iLL INTEX 
END 

// DUP 


* STORE 


INEXC 


(9) 

// JOB 

// ♦ THE SUB ROUTINE IS ACOUNT ROUTINE FC®. CALENDER 
// FOR 

SUBROUTINE TliviE 
CALL COUNT (1,4, 3600) 

CALL LEVEL (10) 

return 

END 

// DUP 

♦delete time 

♦STORE TIME 

(10) THE CCRE lX>iL TO MAINTAIN CALENDER 
//JOB 

// FOR CLNDR 
* IOCS (D ISK , TYFEWRITER) 

DEFINE FILEl 80 2 (1 , 4 , U , IHEAD ) 


I. I. T. KAmm I 
CENTRAL UBRAR-r j 

mmmmmmmmmmmmummmrnmmmmf i 

' , . ■ ' ; : ^ I 

4(5C- No. ^22.134 i 
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2000 

2001 

1 

2002 

2 

3 

2003 

2004 


2005 

3000 


F0RI*;,T(4I5) 

IHE/Jjsl 

RE/iD (1802 ' IHEAD ) IT II.® , ID/iTa , MO^TH , iNCTR 
IF(ITII®-24 >2000,2001, 2001. 

ITIMEa ITIME*! 

GOT03000 

GOTO (1 , 2 , 1 , 3 , 1 , 3 , 1 , 1 , 3, 1 , 3 , 1 ) , MO^TH 

IF(IDATE-31 >2002,2003,2003 

ID/ilEs IB/ilE+1 

ITIIvIE=l 

GOT03000 

IF( IDA'IE-28 > 2002 , 2003 , 2003 

IF ( IDATE-30 > 2002,2003 , 2003 

IF(MONTR-12> 2004, 2005, 2005 

M0N1K=M0NTH*1 

IDAIE=1 

ITIiVE=l 

GOT03000 

MCNTH=1 

IDATS=1 

ITItoE=l 

WRIIE ( 1 80 2 ' 1 > IT lyE , IDA IE , MQsITH , INCTR 
milEf 1 ,4) ITIME, IDATE,MONTH, INCTR 
CALL INTEX 


END 
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// DUP 

i 

♦STORECI I CLNER CLMJR 2410 

‘S'FILES (1802,HEADR,0J 

*CCEND 

(11) THE CORE LOAD FOR AUTOMATIC DkTA TRANSFER OSf TAPE 
// JOB 
// FOR AUTOl 

♦ IOCS (TYFEURITER, KEYBOARD , MAGNETIC TAFE,D ISK) 

DEFINE FILE 1801 (20, 300, U,IFAST) 

DEFINE FILE. 1800 (20 ,300 ,U, ISLO*?) 

DEFINE FILE 1802 (1 ,4,U, IHE/D) 

DATiv IDOLR/^$$'/ 

DIMENSION I1EMP( 300) 

COMIvia^/ INSKEL/ ISLOW, IFAST 

100 FORMAT ('DATA TR/iNSFERED 0-1 TAPE'/ 'TIME DAilS MONTH' 

1 /3I5) 

JSLOvi = l 

JFAST=2 

BACK space 14 

ISLOW=l 

IFA*ST=1 

READ ( 1 80 2 ' 1 ) IT IME , ID ATE , MGN TH, INCTR 



WRITE(14) ITIME* IBAIE,MCMTH, JSLOW 
DOl 1=1,20 

RS/*D (1800 * ISLOW ) ITSMF 
WRITE (14) ITEMF 

1 CONTINUE 

WRITE (14) ITIlv-E , IDATE, MCMTH , JFAST 
D02 1=1,20 

RE/^ ( 1801' IFAST) ITEMP 
WRITE (14) ITEMP 

2 CONTINUE 

WRITE (14) IDOLR, IT IMS, IDATE, MONTH 
WRITE(l,100)ITIli'S, IDATE, MOSITH 
CALL VIAQ 
END 

/ / DUP 

♦ STORECI M AUTOl AUTOl AUTGl 

’{'FILES (1800 , SFilDE i 0 ) 

♦FILES (1801 ,FFADEj0) 

*F ILES (1802, HEADR i 0 ) 


♦CCEND 
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(12) THE CCRJE LOAD FCa MANUiiL BiiTA TRANSFER OSI TAFE 

// JOB 
// FOR Ivl/ilBN 

*IOCS(TYFafRITES.,KEYBO/JlC*^^^vGNETIG TAFEjDISK) 
DEFINEFILE1801 (20 ,300 ,U, IFAST) 

DEFINEFILE1800 (20,300,U, ISLOlv J 
DEFINE FILE 1802 (1 ,4,U, IHE/Jj) 

DATA IDOLR/'$$‘/ 

D IMENS ION ITEMF (300) 

COIvaiON / INS KEL / ISLOTc , IFAST 

99 FORMAT ( ’MOUNT IHE TAPE FOR SCATTER COMM,- AND HASS; 
1 IT RE/XY' ) 

100 FORi/JiT( ‘REMOVE THE TAPE AND SAVE IT') 

JSL0T=1 

JFAST=2 

700 WRITE (1,99) 

PAUSE 

701 CALL FOSTN 

ISLOv:=l 

IFASTsl 

read ( 1 80 2 1 ) ITU^ , ID AIE , MONTH , INCTR 
WRITE (14 ) ITIIvE, ID ATE, MONTH , JSL01?-= 

DO 1 1=1,20 

RS/D (1 800 » ISLQV ) ITEMF 

WRITE (14) ITEMP 
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1 CONTINUE 

« RITE: ( 1 4 J ITI^jE , ID ATE » MONTH , JFAcT 
DO 2 1=1,20 

RE/\D (1801 ' IFAST) ITEM? 
miTE (14UTEMP 

2 CONTINUE 

^‘JRITE(14) IDOLR, ITIMS, IDATE,MCMSITH 
7/RITE (1,1 00) 

REv7IND 14 
CAUL. VIAQ 
END 

// FOR POSTN 

SUBROUTINE POSTN 
DATA IDOLR/ ',$$'/ 

DByENSias^ IBUFR(4) 

REWIND 14 

9 RE/i: (14)IBUFR 
IF(IBUFR(1)-IDOLR)10,12,10 

10 DO 11 1=1,20 
RE/iD (14) 

11 CONTINUE 
GO TO 9 

12 BACKSPACE 14 
RETURN 


END 
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M K4ATRN M/iTRN MATEIN 

♦FILES{1800,SF/XE,0) 

*F ILES ( 1 8 0 1 , FF/X E, 0 ) 

*F ILES (1802, HE/X R, 0 )• 

•I'CCEND 
// DUP 

♦SECXiH MATEIF MATRN,SCATR 

(13) SUBROUTINE TO RE/iD SLOV" FADE BATA 

// JOB 
J J ASM 



ENT 


SLOW 

TEMP 

BSS 

E 

2 

DATA 

EQU 


/3FFF 

AREAl 

BSS 


1 

POINT 

DC 


/oooo 

SLOW 

DC 


0 


STD 


TEMP 


SIX 

LI 

XPJ +1 


SIX 

L2 

XR2*1 


SIX 

L3 

XR3+1 


LDX 

Ll 

6000 

ST^iRT 

NOP 




LDX 

L2 

3560 


LIBF 


AIPN 


DC 


/1 100 





DC 

AREAl 



DC 

POINT 



DC 

/OOOO 


LOOPI 

LIBF 

AIFN 



DC 

/OlOO 



MDX 

LOOPI 



LD L 

AREAl 



STO LI 

DATA-6000 


LOOP9 

iVDX 2 

-1 



mx 

LOOP9 



MDX 1 

-1 



MDX 

START 


XRl 

LDX LI 



XR2 

LDX L2 

:jc - sjt 


XR3 

LDX L2 




IDD L 

TEMP 



BSC 1 




END 


// DUF 




♦DELETE 

SLOW 



♦STORE 

SLOT 
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(14) SUBROJTIl'®. TO TRiiNSFER THE SLO-.. FADE DATA ON TO 

BISK 

// FOR 

SUBROUTINE TR/iNl 
COltaiCW/ INSKEL/ ISLOV/, IFAST 
COMMCN IDATA (6000) 

ISLOV/=l 
IN=1 
IF=300 
DCI 1=1,20 

WRITE(1800^ ISLOrf) (IBATA(J) , J*IN, IF) 

IN=IN+300 
IF=IF+300 
1 CONTINUE 

RETURN 
END 

// DUP 

♦DELETE TRiJ^l 


♦STORE 


TR/iNl 
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(15) SUBROUTME TO TR/iNSFER F/iST FADE DATA CM TO DISK 
7/ FOR 

SUBROUTir^ TR/JSIZ 
COMMON/ INSKEL/ ISLOiv , IFAST 
COMMW IDATA (6000) 

IFAST=1 
IN*1 
IF=300 
DO 11=1,20 

vJRIlE (1801^ IFAST) IDATA ( J ) , J = IN , IF) 

IN=IN*300 
IF=IF+300 
1 CONTINUE 

RETURN 
END 

// DUF 

♦DELETE TRAN2 

♦STORE TR/.N2 

(16) SUBROUTINE TO BEm FAST FADE DATA 
// ASM 

ENT FAST 


TEMP BSS E 2 



DATA 

EQU 


/3FFF 

AREAl 

BSS 


1 

POINT 

DC 


/13F8 

FAST 

DC 


0 


STD 


TEMP 


STX 

Ll 

XRl+1 


STX 

L2 

XR2*1 


STX 

L3 

XR3+1 


LDX 

Ll 

6000 

START 

NOP 




LDX 

L2 

170 


LIBF 


AlfN 


DC 


/IlOO 


DC 


/ilEAl 


DC 


POINT 


DC 


/oooo 

LOOPI 

LIBF 


AlfW 


DC 


/OlOO 


IVEX 


LOOPI 


LD 

L 

AREiU 


STO 

Ll 

DATA-6000 

LOOP4 

MDX 

2 

-1 


MDX 


L00P4 


MDX 

1 

-1 


MDX 


START 



62 


XRl 

LDX 

LI 


XR2 

LDX, 

L2 


XR3 

LDX 

' L3 



Ldd 

L 

TEMF 


BSC 

I 

FAST 


END 

/ / DUP 

♦DELETE FAST 

♦STCEE FAST 

(17) CORE LOAD SCATR 

// JOB 
// DUP 

* STORED ATED 0 HEADR 001 

// DUP 

♦STOREDATAD 0 SFADE 020 

// BUP 

♦STCREDATAD 0 FFADE 020 

//JOB 

// FOR DIGIT 

♦ IOCS (DISK) 

DEFIt'JE FILE 1 800 (20 , 300 ,U, ISLOS ) 
DEFINE FILE 1801 (20 , 300 ,U, IFAST) 
DEFINE FI1£ 1802 (1 ,4,U, IHE/J3) 



EXTERNAL AUTOl 

exteeinal matrf 

CX)MMCN / INSKEL/ ISLOW , IFAST 
COMMON IDATA(6000) 

CALL SL07 
CALL TRANl 
CALL FAST 
C/iLL TR/1I2 
IHS^:iD = l 

(1802 ' IHE/Xy ITIME, IDATE, MONTH, INCTR 
GOTO (100, 101 h INCTR 

100 CAIi QUEUE (MATRF, 1,0) 

GOTO 300 

101 CALL QUEUE (AUTOl, 1,0) 

300 C/JLL SI-CTS 

CALL ENTEX 
END 

// DUP 

♦delete digit 

♦STCEE DIGIT 

// JOB 
// DUP 

♦STORECI I SCATR DIGIT SCATR 2405 


♦LOCALSLOvv , TRANl , FAS T, 'ITIAN2 



♦FILES (1800, SF/£E|0) 
♦FILES (1801 ,FF/iDE,0i 
♦FILES ( 1 80 2 , HE/LR, 0 ) 
♦CCEND 



Fic,-i 6LOCK 
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FIG-G interrupt GENEl<f>roF 
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TABLE 1 


S No. Voltage 


1 

-.114 

2 

.003 

3 

.185 

4 

.372 

5 

.561 

6 

.749 

7 

.939 

8 

.117 

9 

1.309 

10 

1 .486 

11 

1.671 

12 

1.855 

13 

2.045 

14 

2.225 

15 

2.406 

16 

2.585 

17 

2.772 

18 

2.960 

19 

3.139 

20 

3.019 

21 

2.645 

22 

2.242 

23 

1 .840 

24 

1 .438 

25 

1 .020 

26 

0.611 

27 

0.190 

28 

- 0.113 


Change in voltage in 
one sampling time 

.117 

.182 

.187 

.189 

.188 

.190 

.178 

.192 

.185 

.177 

.185 

.190 

.180 

.181 

.179 

.187 

.188 

.179 

.120 

.374 

.403 

.402 

.404 

.418 

.409 

.421 

.303 
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